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function slMultiCompare ($StringA, $StringB) 
; SL platforms: 4.01 ; LastRev: 2002-Aug~21 
; dependencies: slWildCompare ( ) , slQuestionCompare () 

; compares one string to another, and supports and •?• as a wildcards 
; stringA; constant string 
; stringB: variable string 

; StringB can contain wildcards ' * ' and ' ? ' 

StringB can be an array or a single string containing multiple elements, 
each separated by a semi -colon 
dim $ArrayB, $elementB 
$slMultiCompare=0 ; default false 
if $StringA and $StringB 
$StringA=trim ($StringA) 

if vartype($StringB) <8192 ; StringB is a string 

$Arr ayB=spl it ($StringB+' ) ; remove last ; added for split to achieve at least 
one element 

redim preserve $ArrayB [ubound{$ArrayB) -1] 
else ; StringB is an array 

$ Array B= $ S t ringB 
endif 

for each $ElementB in $ArrayB 
$ElementB=trim ( $eleraentB) 
select 

case $ElementB=' * • ; single wildcard - matches everything 

$slMultiC ompar e = 1 

return ; true 
case $StringA=:$ElementB 

$slMultiCompare=l 

return ; true 
case instr ($ Elements, ' * ' ) 

if slWildCompare ($StringA, $ElementB) 
$slMultiCompare=l 
return ; true 

endif 

case instr ( $ElementB , ' ? ' ) 

if SlWildCompare ( $StringA, $ElementB) 

$ slMult iCompar e=l 

return ; true 
endif 

case 1 ; no wildcards and we've already determined that strings don't match 
; do nothing - proceed to next array element 
endselect 
next 
endif 
endf unction 

function slWildCompare {$StringA, $StringB) 

; SL platforms: 4.01 ; LastRev: 2002-Aug-21 
; dependencies: slQuestionCompare () 

; Do not call this function directly use slMultiCompare ( ) instead 
; compares one string to another, and supports wildcards 
; StringA: constant string 

; StringB: variable string (can contain wildcards •*' and '?•) 

; could add case- sensitivity option in future. . . 

dim $LenStringA, $lenStringB, $QuestionLoc, $AsteriskLoc 

dim $GlobArray, $LenGAE, $lenGAEf irst , $lenGAElast, $GAUB 

$slWildCompare=0 ; default to no match 

if $StringA and $StringB 

$StringA=trim ( $StringA) 

$LenStringA=:len ($StringA) 

if $StringB='*' ; single wildcard - matches everything 

$ slWildCompare=l 

return ; true 
endif 

if $StringA=:$StringB ; exact match 

$ slWildCompare=l 

return ;true 
else ; not exact match 



$asteriskLoc=instr ($StringB, ' * • ) 
$questionLoc=instr ($StringB, ' ? ' ) 
if not ($ aster isklioc or $questionLoc) 

return ; false: no wildcards - no reason to continue 
endif 

$lenStringB=len ($StringB) 
$GlobArray=split ($StringB+ •*•',»*') 
$GAUB=ubound ( $GlobArray) -1 

redim preserve $GlobArray [$GAUB] ; remove last * added for split to achieve at 

least one element 

; first Glob - special case test 
$lenGAEf irst=len($GlobArray[03 ) 

if not slQuestionCompare (left ($StringA, $lenGAEf irst) , $GlobArray [ 0 ] ) 

return ; false 
endif 

; last Glob - special case test 
$lenGAElast=len ($GlobArray [$GAUB] ) 

if not SlQuestionCompare (right ($StringA, $lenGAElast) , $GlobArray [$GAUB] ) 

return ; false 
endif 

$StringA=substr{$StringA,$lenGAEfirst+l,len($StringA)-$lenGAElast) ; removed final 
-1 (was failing on *abc*) 

if $GAUB<2 ; less than 2 Globs - preceeding special case tests determined result 

$slwildCompare=l 

return ; true 
endif 

for $index=l to $GAUB-l ; process elements 2 through next -to- last 
$lenGAE=len($GlobArray [$indexl ) 
if len ($StringA) <$lenGAE 

return ; false 
endif 

while len($StringA) and not 
slQuestionCompare (left ($StringA, $lenGAE) , $ GlohArr ay [$ index] ) 
$StringA=substr ($StringA, 2 ) 
loop 

if not SlQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [$index) ) 

return ; false 
else 

$StringA=substr ($StringA, $lenGAE+l) 

endif 
next 

$ slWildCompare^l 
endif 
endif 
endf unction 

function slQuestionCompare ($StringA, $StringB) 
; SL platforms: 4.01 ; LastRev: 2002-Aug-21 

; Do not call this function directly -- use slMultiCompare ( } or slWildCompare () instead 

; compares one string to another, and supports ' ? ' as a wildcard 

; StringA - constant 

; Strings - variable 

dim $ index, $StringBchar 

$slQuestionCorapare=l 

if $StringA and $StringB 

if $StringA=$StringB 

$slQuestionCompare=l ; true 

else 

$slQuestionCompare=0 ; default no match 

if not instr($StringB, •?' ) ; no question marks 

return ; false 
else 

; length of both strings must be same to continue 
if len($StringA)<>len($StringB) ; different lengths 

return ; false 
endif 

; perform comparison character-by-character 
for $index=l to len {$StringA) 

$StringBchar=substr ($StringB, $ index, 1) 

if (substr($StringA,$index,l)<>$StringBchar) and $StringBchar<> • ? ' 
return ; false 



endif 
next 

$slQuestionCompare=l ; true 
endif 
endif 
endif 
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FIG. 11 FLOW AND CASE STATEMENT 



$CurrentPowerProf ileValue=readvalue ( « HKCU\Control 
Panel\PowerCfg • , ' Current Power Pol icy ' ) 

$ Current Power Prof ileName=readvalue ( ' HKCU\Control 
Panel\PowerCfg\PowerPolicies\ ' +$CurrentPowerProf ileValue, 'Name' ) 

select 

case instr ($SiProcessorNameString, 'mobile • ) ; Mobile CPU type 
; highly confident that this is a portable computer! 
; platforms tested on: XP 

$ClientClassRule= ' rule 1: Mobile CPU type -> portable' 
$SiComputerType= ♦ Portable ' 
$ClientClass= ' Port • 
case @INWIN=1 and 

0+readvalue ( ' HKLM\System\CurrentControlSet\Services\pcmcia' , • Start • ) =4 ; NT & PCMCIA 
kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: NT, 2000, XP 

$ClientClassRule=' rule 2: PCMCIA driver not started (NT) -> desktop' 
$SiComputerType=: ' Desktop ' 
$ClientClass= ' Desk • 
case @INWIN=2 and 

• • +readvalue ( ' HKLM\System\CurrentControlSet\Control\InstalledFiles • , » PCCard. vxd' ) = • • ; 9x 
Sc. PCMCIA kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: 95, 98, Me 

$ClientClassRule='rule 3: PCMCIA driver not started {9x) -> desktop' 
$SiComputerType= ' Desktop • 
$ClientClass= ' Desk ' 
case $OS<>'NT' and $SiBatteryState=128 ; no battery present 

; fairly confident that this is a desktop computer (it could be a laptop with the 
battery removed) . 

; platforms tested on: 

$ClientClassRule=' rule 4; No system battery deteted -> desktop' 
$SiComputerType=s ' Desktop ' 
$ClientClass=s ' Desk ' 

case slGetServiceStartup (' UPS' )=' Automatic' ; Built-in UPS service on 2000/XP 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule=* rule 5: built-in UPS service is automatic -> desktop' 
$SiComputerType= • Desktop ' 
$ClientClass= ' Desk ' 
case slGetServiceStartup ( ' LiebertM' ) = 'Automatic ' ; Liebert MultiLink 3 . 0 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule= ' rule 6: Liebert MultiLink UPS service is automatic -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk ' 

case SlGetServiceStartup ( ' APCPBEAgent • ) = 'Automatic ' ; APC PowerChute Business 
Edition 6.1 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule=» rule 7: APC PowerChute Business Edition UPS service is 
automatic -> desktop' 

$SiComputerType= ' Desktop ' 
$ClientClass='Desk' 

case SlGetServiceStartup ( 'APC UPS Service ') = 'Automatic ' ; APC PowerChute Personal 
Edition 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 



; platforms tested on: XP, 2000 

$ClientClassRule= ' rule 8: APC PowerChute Business Edition UPS service is 

automatic -> desktop' 

$SiComputerType= ' Desktop ' 

$ClientClass= ' Desk ' 
case $CurrentPowerProf ileName= ' APC USB UPS' 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; ***$$ what about other UPS brands? What about APC non-USB models? 
; platforms tested on: XP, 2000 

$ClientClassRule= • rule 9: APC USB UPS power scheme -> desktop' 
$SiComputerType= ' Desktop' 
$ClientClass= ' Desk ' 

case $CurrentPowerProf ileName= ' Port able /Laptop ' or $ Current Power Prof ileName= ' Max 

Battery' 

; somewhat confident that this is a portable computer. This setting is user 
prof ile- specif ic and can be changed 

; platforms tested on: XP, 2000 

$ClientClassRule= ' rule 10: port able /I apt op or max battery power scheme -> 
portable ' 

$SiComputerType= ' Portable ' 
$ClientClass= ' Port ' 
case 1 

; At this point, here is what we know: 

; Not a mobile CPU type 

; The Portable/Laptop power scheme is not selected 
; It does have PCMCIA sockets. 

9x, 2000 & XP systems do not have a battery present 

$ClientClassRule= ' rule 11: default -> portable' 
$SiComputerType= ' Portable ' 
$ClientClass= • Port ' 
endselect 



